/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserHTTPLink_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 48 38 63 6c 61 73 73 20 |........|H8class |
|00000010| 55 42 72 6f 77 73 65 72 | 48 54 54 50 4c 69 6e 6b |UBrowser|HTTPLink|
|00000020| 20 65 78 74 65 6e 64 73 | 20 55 42 72 6f 77 73 65 | extends| UBrowse|
|00000030| 72 42 75 66 66 65 72 65 | 64 54 63 70 4c 69 6e 6b |rBuffere|dTcpLink|
|00000040| 3b 0d 0a 0d 0a 2f 2f 20 | 4d 69 73 63 0d 0a 76 61 |;....// |Misc..va|
|00000050| 72 20 55 42 72 6f 77 73 | 65 72 48 54 54 50 46 61 |r UBrows|erHTTPFa|
|00000060| 63 74 09 09 4f 77 6e 65 | 72 46 61 63 74 6f 72 79 |ct..Owne|rFactory|
|00000070| 3b 0d 0a 76 61 72 20 49 | 70 41 64 64 72 09 09 09 |;..var I|pAddr...|
|00000080| 09 09 4d 61 73 74 65 72 | 53 65 72 76 65 72 49 70 |..Master|ServerIp|
|00000090| 41 64 64 72 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 09 |Addr;..v|ar bool.|
|000000a0| 09 09 09 09 62 48 61 73 | 4f 70 65 6e 65 64 3b 0d |....bHas|Opened;.|
|000000b0| 0a 0d 0a 2f 2f 20 50 61 | 72 61 6d 73 0d 0a 76 61 |...// Pa|rams..va|
|000000c0| 72 20 73 74 72 69 6e 67 | 09 09 09 09 09 4d 61 73 |r string|.....Mas|
|000000d0| 74 65 72 53 65 72 76 65 | 72 41 64 64 72 65 73 73 |terServe|rAddress|
|000000e0| 3b 09 2f 2f 20 41 64 64 | 72 65 73 73 20 6f 66 20 |;.// Add|ress of |
|000000f0| 74 68 65 20 6d 61 73 74 | 65 72 20 73 65 72 76 65 |the mast|er serve|
|00000100| 72 0d 0a 76 61 72 20 73 | 74 72 69 6e 67 09 09 09 |r..var s|tring...|
|00000110| 09 09 4d 61 73 74 65 72 | 53 65 72 76 65 72 55 52 |..Master|ServerUR|
|00000120| 49 3b 0d 0a 76 61 72 20 | 69 6e 74 09 09 09 09 09 |I;..var |int.....|
|00000130| 09 4d 61 73 74 65 72 53 | 65 72 76 65 72 54 43 50 |.MasterS|erverTCP|
|00000140| 50 6f 72 74 3b 09 2f 2f | 20 4f 70 74 69 6f 6e 61 |Port;.//| Optiona|
|00000150| 6c 20 70 6f 72 74 20 74 | 68 61 74 20 74 68 65 20 |l port t|hat the |
|00000160| 6d 61 73 74 65 72 20 73 | 65 72 76 65 72 20 69 73 |master s|erver is|
|00000170| 20 6c 69 73 74 65 6e 69 | 6e 67 20 6f 6e 0d 0a 76 | listeni|ng on..v|
|00000180| 61 72 20 69 6e 74 09 09 | 09 09 09 09 4d 61 73 74 |ar int..|....Mast|
|00000190| 65 72 53 65 72 76 65 72 | 54 69 6d 65 6f 75 74 3b |erServer|Timeout;|
|000001a0| 0d 0a 0d 0a 2f 2f 20 45 | 72 72 6f 72 20 6d 65 73 |....// E|rror mes|
|000001b0| 73 61 67 65 73 0d 0a 76 | 61 72 20 6c 6f 63 61 6c |sages..v|ar local|
|000001c0| 69 7a 65 64 20 73 74 72 | 69 6e 67 09 09 52 65 73 |ized str|ing..Res|
|000001d0| 6f 6c 76 65 46 61 69 6c | 65 64 45 72 72 6f 72 3b |olveFail|edError;|
|000001e0| 0d 0a 76 61 72 20 6c 6f | 63 61 6c 69 7a 65 64 20 |..var lo|calized |
|000001f0| 73 74 72 69 6e 67 09 09 | 54 69 6d 65 4f 75 74 45 |string..|TimeOutE|
|00000200| 72 72 6f 72 3b 0d 0a 76 | 61 72 20 6c 6f 63 61 6c |rror;..v|ar local|
|00000210| 69 7a 65 64 20 73 74 72 | 69 6e 67 09 09 43 6f 75 |ized str|ing..Cou|
|00000220| 6c 64 4e 6f 74 43 6f 6e | 6e 65 63 74 45 72 72 6f |ldNotCon|nectErro|
|00000230| 72 3b 0d 0a 0d 0a 2f 2f | 20 66 6f 72 20 57 61 69 |r;....//| for Wai|
|00000240| 74 46 6f 72 0d 0a 63 6f | 6e 73 74 20 46 6f 75 6e |tFor..co|nst Foun|
|00000250| 64 48 65 61 64 65 72 20 | 3d 20 31 3b 0d 0a 63 6f |dHeader |= 1;..co|
|00000260| 6e 73 74 20 46 6f 75 6e | 64 53 65 72 76 65 72 20 |nst Foun|dServer |
|00000270| 3d 20 32 3b 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |= 2;....|function|
|00000280| 20 42 65 67 69 6e 50 6c | 61 79 28 29 0d 0a 7b 0d | BeginPl|ay()..{.|
|00000290| 0a 09 62 48 61 73 4f 70 | 65 6e 65 64 20 3d 20 46 |..bHasOp|ened = F|
|000002a0| 61 6c 73 65 3b 0d 0a 09 | 44 69 73 61 62 6c 65 28 |alse;...|Disable(|
|000002b0| 27 54 69 63 6b 27 29 3b | 0d 0a 09 53 75 70 65 72 |'Tick');|...Super|
|000002c0| 2e 42 65 67 69 6e 50 6c | 61 79 28 29 3b 0d 0a 7d |.BeginPl|ay();..}|
|000002d0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 53 74 61 |....func|tion Sta|
|000002e0| 72 74 28 29 0d 0a 7b 0d | 0a 09 52 65 73 65 74 42 |rt()..{.|..ResetB|
|000002f0| 75 66 66 65 72 28 29 3b | 0d 0a 0d 0a 09 4d 61 73 |uffer();|.....Mas|
|00000300| 74 65 72 53 65 72 76 65 | 72 49 70 41 64 64 72 2e |terServe|rIpAddr.|
|00000310| 50 6f 72 74 20 3d 20 4d | 61 73 74 65 72 53 65 72 |Port = M|asterSer|
|00000320| 76 65 72 54 43 50 50 6f | 72 74 3b 0d 0a 09 52 65 |verTCPPo|rt;...Re|
|00000330| 73 6f 6c 76 65 28 20 4d | 61 73 74 65 72 53 65 72 |solve( M|asterSer|
|00000340| 76 65 72 41 64 64 72 65 | 73 73 20 29 3b 0d 0a 7d |verAddre|ss );..}|
|00000350| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 44 6f 42 |....func|tion DoB|
|00000360| 75 66 66 65 72 51 75 65 | 75 65 49 4f 28 29 0d 0a |ufferQue|ueIO()..|
|00000370| 7b 0d 0a 09 53 75 70 65 | 72 2e 44 6f 42 75 66 66 |{...Supe|r.DoBuff|
|00000380| 65 72 51 75 65 75 65 49 | 4f 28 29 3b 0d 0a 09 69 |erQueueI|O();...i|
|00000390| 66 28 62 48 61 73 4f 70 | 65 6e 65 64 20 26 26 20 |f(bHasOp|ened && |
|000003a0| 50 65 65 6b 43 68 61 72 | 28 29 20 3d 3d 20 30 20 |PeekChar|() == 0 |
|000003b0| 26 26 20 21 49 73 43 6f | 6e 6e 65 63 74 65 64 28 |&& !IsCo|nnected(|
|000003c0| 29 29 0d 0a 09 7b 0d 0a | 09 09 4f 77 6e 65 72 46 |))...{..|..OwnerF|
|000003d0| 61 63 74 6f 72 79 2e 51 | 75 65 72 79 46 69 6e 69 |actory.Q|ueryFini|
|000003e0| 73 68 65 64 28 54 72 75 | 65 29 3b 0d 0a 09 09 47 |shed(Tru|e);....G|
|000003f0| 6f 74 6f 53 74 61 74 65 | 28 27 44 6f 6e 65 27 29 |otoState|('Done')|
|00000400| 3b 0d 0a 09 7d 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |;...}..}|....func|
|00000410| 74 69 6f 6e 20 52 65 73 | 6f 6c 76 65 64 28 20 49 |tion Res|olved( I|
|00000420| 70 41 64 64 72 20 41 64 | 64 72 20 29 0d 0a 7b 0d |pAddr Ad|dr )..{.|
|00000430| 0a 09 2f 2f 20 53 65 74 | 20 74 68 65 20 61 64 64 |..// Set| the add|
|00000440| 72 65 73 73 0d 0a 09 4d | 61 73 74 65 72 53 65 72 |ress...M|asterSer|
|00000450| 76 65 72 49 70 41 64 64 | 72 2e 41 64 64 72 20 3d |verIpAdd|r.Addr =|
|00000460| 20 41 64 64 72 2e 41 64 | 64 72 3b 0d 0a 0d 0a 09 | Addr.Ad|dr;.....|
|00000470| 2f 2f 20 48 61 6e 64 6c | 65 20 66 61 69 6c 75 72 |// Handl|e failur|
|00000480| 65 2e 0d 0a 09 69 66 28 | 20 4d 61 73 74 65 72 53 |e....if(| MasterS|
|00000490| 65 72 76 65 72 49 70 41 | 64 64 72 2e 41 64 64 72 |erverIpA|ddr.Addr|
|000004a0| 20 3d 3d 20 30 20 29 0d | 0a 09 7b 0d 0a 09 09 4c | == 0 ).|..{....L|
|000004b0| 6f 67 28 20 22 55 42 72 | 6f 77 73 65 72 48 54 54 |og( "UBr|owserHTT|
|000004c0| 50 4c 69 6e 6b 3a 20 49 | 6e 76 61 6c 69 64 20 6d |PLink: I|nvalid m|
|000004d0| 61 73 74 65 72 20 73 65 | 72 76 65 72 20 61 64 64 |aster se|rver add|
|000004e0| 72 65 73 73 2c 20 61 62 | 6f 72 74 69 6e 67 2e 22 |ress, ab|orting."|
|000004f0| 20 29 3b 0d 0a 09 09 72 | 65 74 75 72 6e 3b 0d 0a | );....r|eturn;..|
|00000500| 09 7d 0d 0a 0d 0a 09 2f | 2f 20 44 69 73 70 6c 61 |.}...../|/ Displa|
|00000510| 79 20 73 75 63 63 65 73 | 73 20 6d 65 73 73 61 67 |y succes|s messag|
|00000520| 65 2e 0d 0a 09 4c 6f 67 | 28 20 22 55 42 72 6f 77 |e....Log|( "UBrow|
|00000530| 73 65 72 48 54 54 50 4c | 69 6e 6b 3a 20 4d 61 73 |serHTTPL|ink: Mas|
|00000540| 74 65 72 20 53 65 72 76 | 65 72 20 69 73 20 22 24 |ter Serv|er is "$|
|00000550| 4d 61 73 74 65 72 53 65 | 72 76 65 72 41 64 64 72 |MasterSe|rverAddr|
|00000560| 65 73 73 24 22 3a 22 24 | 4d 61 73 74 65 72 53 65 |ess$":"$|MasterSe|
|00000570| 72 76 65 72 49 70 41 64 | 64 72 2e 50 6f 72 74 20 |rverIpAd|dr.Port |
|00000580| 29 3b 0d 0a 0d 0a 09 2f | 2f 20 42 69 6e 64 20 74 |);...../|/ Bind t|
|00000590| 68 65 20 6c 6f 63 61 6c | 20 70 6f 72 74 2e 0d 0a |he local| port...|
|000005a0| 09 69 66 28 20 42 69 6e | 64 50 6f 72 74 28 29 20 |.if( Bin|dPort() |
|000005b0| 3d 3d 20 30 20 29 0d 0a | 09 7b 0d 0a 09 09 4c 6f |== 0 )..|.{....Lo|
|000005c0| 67 28 20 22 55 42 72 6f | 77 73 65 72 48 54 54 50 |g( "UBro|wserHTTP|
|000005d0| 4c 69 6e 6b 3a 20 45 72 | 72 6f 72 20 62 69 6e 64 |Link: Er|ror bind|
|000005e0| 69 6e 67 20 6c 6f 63 61 | 6c 20 70 6f 72 74 2c 20 |ing loca|l port, |
|000005f0| 61 62 6f 72 74 69 6e 67 | 2e 22 20 29 3b 0d 0a 09 |aborting|." );...|
|00000600| 09 72 65 74 75 72 6e 3b | 0d 0a 09 7d 0d 0a 0d 0a |.return;|...}....|
|00000610| 09 4f 70 65 6e 28 20 4d | 61 73 74 65 72 53 65 72 |.Open( M|asterSer|
|00000620| 76 65 72 49 70 41 64 64 | 72 20 29 3b 0d 0a 09 53 |verIpAdd|r );...S|
|00000630| 65 74 54 69 6d 65 72 28 | 4d 61 73 74 65 72 53 65 |etTimer(|MasterSe|
|00000640| 72 76 65 72 54 69 6d 65 | 6f 75 74 2c 20 46 61 6c |rverTime|out, Fal|
|00000650| 73 65 29 3b 0d 0a 7d 0d | 0a 0d 0a 65 76 65 6e 74 |se);..}.|...event|
|00000660| 20 54 69 6d 65 72 28 29 | 0d 0a 7b 0d 0a 09 69 66 | Timer()|..{...if|
|00000670| 28 21 62 48 61 73 4f 70 | 65 6e 65 64 29 0d 0a 09 |(!bHasOp|ened)...|
|00000680| 7b 0d 0a 09 09 4f 77 6e | 65 72 46 61 63 74 6f 72 |{....Own|erFactor|
|00000690| 79 2e 51 75 65 72 79 46 | 69 6e 69 73 68 65 64 28 |y.QueryF|inished(|
|000006a0| 46 61 6c 73 65 2c 20 43 | 6f 75 6c 64 4e 6f 74 43 |False, C|ouldNotC|
|000006b0| 6f 6e 6e 65 63 74 45 72 | 72 6f 72 24 4d 61 73 74 |onnectEr|ror$Mast|
|000006c0| 65 72 53 65 72 76 65 72 | 41 64 64 72 65 73 73 29 |erServer|Address)|
|000006d0| 3b 0d 0a 09 09 47 6f 74 | 6f 53 74 61 74 65 28 27 |;....Got|oState('|
|000006e0| 44 6f 6e 65 27 29 3b 09 | 0d 0a 09 7d 09 0d 0a 7d |Done');.|...}...}|
|000006f0| 0d 0a 0d 0a 65 76 65 6e | 74 20 43 6c 6f 73 65 64 |....even|t Closed|
|00000700| 28 29 0d 0a 7b 0d 0a 7d | 0d 0a 0d 0a 2f 2f 20 48 |()..{..}|....// H|
|00000710| 6f 73 74 20 72 65 73 6f | 6c 75 74 69 6f 6e 20 66 |ost reso|lution f|
|00000720| 61 69 6c 75 65 2e 0d 0a | 66 75 6e 63 74 69 6f 6e |ailue...|function|
|00000730| 20 52 65 73 6f 6c 76 65 | 46 61 69 6c 65 64 28 29 | Resolve|Failed()|
|00000740| 0d 0a 7b 0d 0a 09 4c 6f | 67 28 22 55 42 72 6f 77 |..{...Lo|g("UBrow|
|00000750| 73 65 72 48 54 54 50 4c | 69 6e 6b 3a 20 46 61 69 |serHTTPL|ink: Fai|
|00000760| 6c 65 64 20 74 6f 20 72 | 65 73 6f 6c 76 65 20 6d |led to r|esolve m|
|00000770| 61 73 74 65 72 20 73 65 | 72 76 65 72 20 61 64 64 |aster se|rver add|
|00000780| 72 65 73 73 2c 20 61 62 | 6f 72 74 69 6e 67 2e 22 |ress, ab|orting."|
|00000790| 29 3b 0d 0a 09 4f 77 6e | 65 72 46 61 63 74 6f 72 |);...Own|erFactor|
|000007a0| 79 2e 51 75 65 72 79 46 | 69 6e 69 73 68 65 64 28 |y.QueryF|inished(|
|000007b0| 46 61 6c 73 65 2c 20 52 | 65 73 6f 6c 76 65 46 61 |False, R|esolveFa|
|000007c0| 69 6c 65 64 45 72 72 6f | 72 24 4d 61 73 74 65 72 |iledErro|r$Master|
|000007d0| 53 65 72 76 65 72 41 64 | 64 72 65 73 73 29 3b 0d |ServerAd|dress);.|
|000007e0| 0a 09 47 6f 74 6f 53 74 | 61 74 65 28 27 44 6f 6e |..GotoSt|ate('Don|
|000007f0| 65 27 29 3b 0d 0a 7d 0d | 0a 0d 0a 65 76 65 6e 74 |e');..}.|...event|
|00000800| 20 4f 70 65 6e 65 64 28 | 29 0d 0a 7b 0d 0a 09 45 | Opened(|)..{...E|
|00000810| 6e 61 62 6c 65 28 27 54 | 69 63 6b 27 29 3b 0d 0a |nable('T|ick');..|
|00000820| 09 62 48 61 73 4f 70 65 | 6e 65 64 20 3d 20 54 72 |.bHasOpe|ned = Tr|
|00000830| 75 65 3b 0d 0a 0d 0a 09 | 2f 2f 20 53 65 6e 64 20 |ue;.....|// Send |
|00000840| 72 65 71 75 65 73 74 0d | 0a 09 53 65 6e 64 42 75 |request.|..SendBu|
|00000850| 66 66 65 72 65 64 44 61 | 74 61 28 22 47 45 54 20 |fferedDa|ta("GET |
|00000860| 22 24 4d 61 73 74 65 72 | 53 65 72 76 65 72 55 52 |"$Master|ServerUR|
|00000870| 49 24 22 20 48 54 54 50 | 2f 31 2e 30 22 24 43 52 |I$" HTTP|/1.0"$CR|
|00000880| 24 4c 46 29 3b 0d 0a 09 | 53 65 6e 64 42 75 66 66 |$LF);...|SendBuff|
|00000890| 65 72 65 64 44 61 74 61 | 28 22 55 73 65 72 2d 41 |eredData|("User-A|
|000008a0| 67 65 6e 74 3a 20 55 6e | 72 65 61 6c 22 24 43 52 |gent: Un|real"$CR|
|000008b0| 24 4c 46 29 3b 0d 0a 09 | 53 65 6e 64 42 75 66 66 |$LF);...|SendBuff|
|000008c0| 65 72 65 64 44 61 74 61 | 28 22 48 6f 73 74 3a 22 |eredData|("Host:"|
|000008d0| 24 4d 61 73 74 65 72 53 | 65 72 76 65 72 41 64 64 |$MasterS|erverAdd|
|000008e0| 72 65 73 73 24 22 3a 22 | 24 4d 61 73 74 65 72 53 |ress$":"|$MasterS|
|000008f0| 65 72 76 65 72 54 43 50 | 50 6f 72 74 24 43 52 24 |erverTCP|Port$CR$|
|00000900| 4c 46 24 43 52 24 4c 46 | 29 3b 0d 0a 09 57 61 69 |LF$CR$LF|);...Wai|
|00000910| 74 46 6f 72 28 22 32 30 | 30 22 2c 20 31 30 2c 20 |tFor("20|0", 10, |
|00000920| 46 6f 75 6e 64 48 65 61 | 64 65 72 29 3b 0d 0a 7d |FoundHea|der);..}|
|00000930| 0d 0a 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 54 |......fu|nction T|
|00000940| 69 63 6b 28 66 6c 6f 61 | 74 20 44 65 6c 74 61 54 |ick(floa|t DeltaT|
|00000950| 69 6d 65 29 0d 0a 7b 0d | 0a 09 44 6f 42 75 66 66 |ime)..{.|..DoBuff|
|00000960| 65 72 51 75 65 75 65 49 | 4f 28 29 3b 0d 0a 7d 0d |erQueueI|O();..}.|
|00000970| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 48 61 6e 64 |...funct|ion Hand|
|00000980| 6c 65 53 65 72 76 65 72 | 28 73 74 72 69 6e 67 20 |leServer|(string |
|00000990| 54 65 78 74 29 0d 0a 7b | 0d 0a 09 6c 6f 63 61 6c |Text)..{|...local|
|000009a0| 20 73 74 72 69 6e 67 09 | 41 64 64 72 65 73 73 3b | string.|Address;|
|000009b0| 0d 0a 09 6c 6f 63 61 6c | 20 73 74 72 69 6e 67 09 |...local| string.|
|000009c0| 50 6f 72 74 3b 0d 0a 0d | 0a 09 41 64 64 72 65 73 |Port;...|..Addres|
|000009d0| 73 20 3d 20 50 61 72 73 | 65 44 65 6c 69 6d 69 74 |s = Pars|eDelimit|
|000009e0| 65 64 28 54 65 78 74 2c | 20 22 20 22 2c 20 31 29 |ed(Text,| " ", 1)|
|000009f0| 3b 0d 0a 09 50 6f 72 74 | 20 3d 20 50 61 72 73 65 |;...Port| = Parse|
|00000a00| 44 65 6c 69 6d 69 74 65 | 64 28 54 65 78 74 2c 20 |Delimite|d(Text, |
|00000a10| 22 20 22 2c 20 33 29 3b | 0d 0a 0d 0a 09 4f 77 6e |" ", 3);|.....Own|
|00000a20| 65 72 46 61 63 74 6f 72 | 79 2e 46 6f 75 6e 64 53 |erFactor|y.FoundS|
|00000a30| 65 72 76 65 72 28 41 64 | 64 72 65 73 73 2c 20 69 |erver(Ad|dress, i|
|00000a40| 6e 74 28 50 6f 72 74 29 | 2c 20 22 22 2c 20 22 55 |nt(Port)|, "", "U|
|00000a50| 6e 72 65 61 6c 22 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |nreal");|..}....f|
|00000a60| 75 6e 63 74 69 6f 6e 20 | 47 6f 74 4d 61 74 63 68 |unction |GotMatch|
|00000a70| 28 69 6e 74 20 4d 61 74 | 63 68 44 61 74 61 29 0d |(int Mat|chData).|
|00000a80| 0a 7b 0d 0a 09 73 77 69 | 74 63 68 28 4d 61 74 63 |.{...swi|tch(Matc|
|00000a90| 68 44 61 74 61 29 0d 0a | 09 7b 0d 0a 09 63 61 73 |hData)..|.{...cas|
|00000aa0| 65 20 46 6f 75 6e 64 48 | 65 61 64 65 72 3a 0d 0a |e FoundH|eader:..|
|00000ab0| 09 09 45 6e 61 62 6c 65 | 28 27 54 69 63 6b 27 29 |..Enable|('Tick')|
|00000ac0| 3b 0d 0a 09 09 69 66 28 | 43 68 72 28 50 65 65 6b |;....if(|Chr(Peek|
|00000ad0| 43 68 61 72 28 29 29 20 | 3d 3d 20 43 52 20 7c 7c |Char()) |== CR |||
|00000ae0| 20 43 68 72 28 50 65 65 | 6b 43 68 61 72 28 29 29 | Chr(Pee|kChar())|
|00000af0| 20 3d 3d 20 4c 46 29 20 | 52 65 61 64 43 68 61 72 | == LF) |ReadChar|
|00000b00| 28 29 3b 0d 0a 09 09 0d | 0a 09 09 77 68 69 6c 65 |();.....|...while|
|00000b10| 28 52 69 67 68 74 28 57 | 61 69 74 52 65 73 75 6c |(Right(W|aitResul|
|00000b20| 74 2c 20 31 29 20 3d 3d | 20 43 52 20 7c 7c 20 52 |t, 1) ==| CR || R|
|00000b30| 69 67 68 74 28 57 61 69 | 74 52 65 73 75 6c 74 2c |ight(Wai|tResult,|
|00000b40| 20 31 29 20 3d 3d 20 4c | 46 29 0d 0a 09 09 09 57 | 1) == L|F).....W|
|00000b50| 61 69 74 52 65 73 75 6c | 74 3d 4c 65 66 74 28 57 |aitResul|t=Left(W|
|00000b60| 61 69 74 52 65 73 75 6c | 74 2c 20 4c 65 6e 28 57 |aitResul|t, Len(W|
|00000b70| 61 69 74 52 65 73 75 6c | 74 29 20 2d 20 31 29 3b |aitResul|t) - 1);|
|00000b80| 0d 0a 0d 0a 09 09 69 66 | 28 57 61 69 74 52 65 73 |......if|(WaitRes|
|00000b90| 75 6c 74 20 21 3d 20 22 | 22 29 0d 0a 09 09 09 57 |ult != "|").....W|
|00000ba0| 61 69 74 46 6f 72 28 43 | 52 2c 20 31 30 2c 20 46 |aitFor(C|R, 10, F|
|00000bb0| 6f 75 6e 64 48 65 61 64 | 65 72 29 3b 0d 0a 09 09 |oundHead|er);....|
|00000bc0| 65 6c 73 65 0d 0a 09 09 | 09 57 61 69 74 46 6f 72 |else....|.WaitFor|
|00000bd0| 28 43 52 2c 20 31 30 2c | 20 46 6f 75 6e 64 53 65 |(CR, 10,| FoundSe|
|00000be0| 72 76 65 72 29 3b 0d 0a | 09 09 62 72 65 61 6b 3b |rver);..|..break;|
|00000bf0| 0d 0a 09 63 61 73 65 20 | 46 6f 75 6e 64 53 65 72 |...case |FoundSer|
|00000c00| 76 65 72 3a 0d 0a 09 09 | 45 6e 61 62 6c 65 28 27 |ver:....|Enable('|
|00000c10| 54 69 63 6b 27 29 3b 0d | 0a 09 09 69 66 28 43 68 |Tick');.|...if(Ch|
|00000c20| 72 28 50 65 65 6b 43 68 | 61 72 28 29 29 20 3d 3d |r(PeekCh|ar()) ==|
|00000c30| 20 43 52 20 7c 7c 20 43 | 68 72 28 50 65 65 6b 43 | CR || C|hr(PeekC|
|00000c40| 68 61 72 28 29 29 20 3d | 3d 20 4c 46 29 20 52 65 |har()) =|= LF) Re|
|00000c50| 61 64 43 68 61 72 28 29 | 3b 0d 0a 09 09 0d 0a 09 |adChar()|;.......|
|00000c60| 09 77 68 69 6c 65 28 52 | 69 67 68 74 28 57 61 69 |.while(R|ight(Wai|
|00000c70| 74 52 65 73 75 6c 74 2c | 20 31 29 20 3d 3d 20 43 |tResult,| 1) == C|
|00000c80| 52 20 7c 7c 20 52 69 67 | 68 74 28 57 61 69 74 52 |R || Rig|ht(WaitR|
|00000c90| 65 73 75 6c 74 2c 20 31 | 29 20 3d 3d 20 4c 46 29 |esult, 1|) == LF)|
|00000ca0| 0d 0a 09 09 09 57 61 69 | 74 52 65 73 75 6c 74 3d |.....Wai|tResult=|
|00000cb0| 4c 65 66 74 28 57 61 69 | 74 52 65 73 75 6c 74 2c |Left(Wai|tResult,|
|00000cc0| 20 4c 65 6e 28 57 61 69 | 74 52 65 73 75 6c 74 29 | Len(Wai|tResult)|
|00000cd0| 20 2d 20 31 29 3b 0d 0a | 0d 0a 09 09 48 61 6e 64 | - 1);..|....Hand|
|00000ce0| 6c 65 53 65 72 76 65 72 | 28 57 61 69 74 52 65 73 |leServer|(WaitRes|
|00000cf0| 75 6c 74 29 3b 0d 0a 0d | 0a 09 09 57 61 69 74 46 |ult);...|...WaitF|
|00000d00| 6f 72 28 43 52 2c 20 31 | 30 2c 20 46 6f 75 6e 64 |or(CR, 1|0, Found|
|00000d10| 53 65 72 76 65 72 29 3b | 0d 0a 09 09 62 72 65 61 |Server);|....brea|
|00000d20| 6b 3b 0d 0a 09 64 65 66 | 61 75 6c 74 3a 0d 0a 09 |k;...def|ault:...|
|00000d30| 09 62 72 65 61 6b 3b 0d | 0a 09 7d 0d 0a 7d 0d 0a |.break;.|..}..}..|
|00000d40| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 47 6f 74 4d 61 |..functi|on GotMa|
|00000d50| 74 63 68 54 69 6d 65 6f | 75 74 28 69 6e 74 20 4d |tchTimeo|ut(int M|
|00000d60| 61 74 63 68 44 61 74 61 | 29 0d 0a 7b 0d 0a 09 2f |atchData|)..{.../|
|00000d70| 2f 20 77 68 65 6e 20 61 | 20 6d 61 74 63 68 20 74 |/ when a| match t|
|00000d80| 69 6d 65 73 20 6f 75 74 | 0d 0a 09 4f 77 6e 65 72 |imes out|...Owner|
|00000d90| 46 61 63 74 6f 72 79 2e | 51 75 65 72 79 46 69 6e |Factory.|QueryFin|
|00000da0| 69 73 68 65 64 28 46 61 | 6c 73 65 2c 20 54 69 6d |ished(Fa|lse, Tim|
|00000db0| 65 4f 75 74 45 72 72 6f | 72 29 3b 0d 0a 09 47 6f |eOutErro|r);...Go|
|00000dc0| 74 6f 53 74 61 74 65 28 | 27 44 6f 6e 65 27 29 3b |toState(|'Done');|
|00000dd0| 0d 0a 7d 0d 0a 0d 0a 2f | 2f 20 53 74 61 74 65 73 |..}..../|/ States|
|00000de0| 0d 0a 73 74 61 74 65 20 | 44 6f 6e 65 0d 0a 7b 0d |..state |Done..{.|
|00000df0| 0a 42 65 67 69 6e 3a 0d | 0a 09 44 69 73 61 62 6c |.Begin:.|..Disabl|
|00000e00| 65 28 27 54 69 63 6b 27 | 29 3b 0d 0a 7d 0d 0a 0d |e('Tick'|);..}...|
|00000e10| 0a 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+